home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_405_PurchaseButton (BuildMat).ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  822 b   |  33 lines
  1. property mySprite, myType, myName, myNameDown, myNameOver, myNameInactive, Active, ancestor
  2.  
  3. on beginSprite me
  4.   global gActorListMan
  5.   mySprite = me.spriteNum
  6.   myName = (the member of sprite mySprite).name
  7.   myNameDown = word 1 of myName && "down"
  8.   myNameOver = word 1 of myName && "over"
  9.   myNameInactive = word 1 of myName && "Inactive"
  10.   Active = 1
  11.   lookForToolTip = 1
  12.   ancestor = new(script("FourStatebuttonActions"), lookForToolTip)
  13.   myType = #selectButton
  14.   registerSprite(gActorListMan, mySprite)
  15. end
  16.  
  17. on mouseUp me
  18.   global gClickSprite, gConMan
  19.   if not Active then
  20.     exit
  21.   end if
  22.   if gClickSprite = mySprite then
  23.     doButtonUpClick(myType, 1)
  24.     go(the frame + 1)
  25.     outPut("selectButton Clicked")
  26.   end if
  27. end
  28.  
  29. on endSprite me
  30.   global gActorListMan
  31.   unRegisterSprite(gActorListMan, mySprite)
  32. end
  33.